home *** CD-ROM | disk | FTP | other *** search
/ Mission to McDonaldLand / Mission To McDonaldLand.iso / digrow.dxr / 00026_Script_UI Rollover Change Pointer < prev    next >
Text File  |  1998-10-22  |  2KB  |  65 lines
  1. -- Pointer Change on Rollover
  2.  
  3.  
  4. -- a control
  5. -- Changes the cursor when the cursor rollsover the sprite
  6.  
  7. property outcurs, incurs, incursSet, customImage, customMask, oldcursor
  8. property useCustom
  9.  
  10.  
  11. on translate_cursor me, setting, image, mask, custom
  12.   if custom then
  13.     set val = [ member image, member mask ]
  14.     return val
  15.   end if
  16.   return setting
  17. end
  18.  
  19.  
  20. --- 
  21.  
  22. on beginSprite me
  23.   set oldcursor = the cursor of sprite the spritenum of me
  24.   set val =  translate_cursor( me, the incursSet of me,customImage,customMask,useCustom )
  25.   set the cursor of sprite the spriteNum of me = val
  26.   
  27. end
  28.  
  29. on endsprite me
  30.   set the cursor of sprite the spriteNum of me = oldcursor
  31. end
  32.  
  33. on getPropertyDescriptionList
  34.   
  35.   set p_list = [ ¼
  36.      #incursSet: [ #comment:   "Pointer Image:", ¼
  37.                     #format:   #cursor, ¼
  38.                    #default:   1], ¼
  39.        #useCustom: [ #comment: "Use Custom Pointer:", ¼
  40.                     #format:   #boolean, ¼
  41.                    #default:    FALSE ], ¼
  42.   #customImage: [ #comment:   "Custom Image:", ¼
  43.                     #format:   #bitmap, ¼
  44.                    #default:    member 1 ], ¼
  45.     #customMask: [ #comment:   "Custom Mask:", ¼
  46.                     #format:   #bitmap, ¼
  47.                    #default:    member 1 ] ¼
  48.                  ]
  49.   return p_list 
  50.   
  51. end
  52.  
  53.  
  54. on getBehaviorDescription
  55.   return ¼
  56. "Changes the pointer image when the pointer rolls over the current sprite. Choose one of the pointers included with Director, or specify a 1-bit bitmapped cast member." & RETURN & ¼
  57. "PARAMETERS:" & RETURN & ¼
  58. "ò Pointer Image - Choose one of Director's included pointers."  & RETURN & ¼
  59. "ò Use Custom Pointer - Turn this option on to specify a cast member instead of an included pointer."  & RETURN & ¼
  60. "ò Custom Image  - ( optional ) Choose a cast member to use as the pointer image.  This choice is ignored unless Use Custom Pointer is on."  & RETURN & ¼
  61. "ò Custom Mask - ( optional ) Choose a cast member to use as mask image."
  62.   
  63. end
  64.  
  65.